home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / DISK_UTL / SHOWMAN / OPTNDLG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-25  |  928b  |  45 lines
  1. unit OptnDlg;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, ExtCtrls, Forms, ComCtrls;
  8.  
  9. type
  10.   TOptionsDialog = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     PageControl1: TPageControl;
  14.     SpaceSheet: TTabSheet;
  15.     RadioGroup1: TRadioGroup;
  16.     btnBytesUsed: TRadioButton;
  17.     btnAllocated: TRadioButton;
  18.     Label1: TLabel;
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure FormShow(Sender: TObject);
  21.   public
  22.     { Public declarations }
  23.     show_allocated: boolean;
  24.   end;
  25.  
  26. var
  27.   OptionsDialog: TOptionsDialog;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. procedure TOptionsDialog.Button1Click(Sender: TObject);
  34. begin
  35.   show_allocated := btnAllocated.Checked;
  36. end;
  37.  
  38. procedure TOptionsDialog.FormShow(Sender: TObject);
  39. begin
  40.   btnAllocated.Checked := show_allocated;
  41.   btnBytesUsed.Checked := not btnAllocated.Checked;
  42. end;
  43.  
  44. end.
  45.